home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / arexx-scripts / adpro-arexx / dopusmultiplerender.adpro next >
Encoding:
Text File  |  1993-10-30  |  4.2 KB  |  177 lines
  1. /*
  2. ----------------------------------------------------------------------------
  3. Alle Bilder in einem Quell-Verzeichnis werden gerendet, gedithert,
  4. gescaled und dann in ein Ziel-Verzeichnis als IFF abgespeichert
  5.  
  6. Version die Einzelbilder bearbeitet, zur Einbindung in Opus.
  7. Host address: ADPro
  8. Written by Oliver Eales ©1993.
  9. ----------------------------------------------------------------------------
  10. */
  11.  
  12. SAY ""
  13. SAY "Diese Script rendert, dithert scaled und speichert ein Bild in"
  14. SAY "von einem Verzeichnises in ein anders Verzeichnis."
  15. SAY "Es dürfen nur BILDER (mit Icons)  in Opus angewählt sein!"
  16. SAY "© Oliver Eales 1993"
  17. SAY ""
  18.  
  19. ADPpath='ADPro:ADPro'  /* ADPro muss nach "ADPro:" assigned sein */
  20. IF ~SHOW('P','ADPro') THEN DO
  21.   /* ADPro wird gestartet */
  22.   SAY "Ich starte ADPro..."
  23.   ADDRESS COMMAND 'run <NIL: >NIL: 'ADPpath
  24.   IF RC~=0 THEN EXIT
  25.   ADDRESS COMMAND 'WaitForPort ADPro'
  26.   IF RC~=0 THEN EXIT
  27. END
  28.  
  29. ADDRESS 'ADPro'
  30. OPTIONS RESULTS
  31.  
  32. AdPro_To_Back
  33.  
  34. IF ~show('l', "rexxsupport.library") THEN
  35.   Erfolg=ADDLIB("rexxsupport.library",0,-30,0)
  36.  
  37. ARG source dest name screen resX resY colours dthrnr
  38.  
  39. IF name=""|screen=""|resX=""|resY=""|colours=""|dthrnr="" THEN
  40.   DO
  41.     SAY "Parameter Angabe nicht korrekt!"
  42.     SAY ""
  43.     SAY "USAGE=MultipleRender Bildname ScreenFormat  Res_X Res_Y   "
  44.     SAY "Number_of_Colours (2-256, HAM, HAM 8) DitherAmount (0-7)  "
  45.     SAY "----------------------------------------------------------"
  46.     SAY "         Das sind die Codes für den Screenmode:           "
  47.     SAY "----------------------------------------------------------"
  48.     SAY "        |Interlaced | Not Interl.| Size NoInt | Size Int |"
  49.     SAY "----------------------------------------------------------"
  50.     SAY "Lores   |     6     |       4    |   320x256  | 320x512  |"
  51.     SAY "----------------------------------------------------------"
  52.     SAY "SHires  |     7     |       5    |   640x256  | 640x512  |"
  53.     SAY "----------------------------------------------------------"
  54.     SAY "S-Hires |     70    |       68   |  1280x256  | 1280x512 |"
  55.     SAY "----------------------------------------------------------"
  56.     SAY "Prod.   |     35    |       33   |   640x480  | 640x960  |"
  57.     SAY "----------------------------------------------------------"
  58.     SAY ""
  59.     EXIT
  60.   END
  61.  
  62. IF ~(colours=256|colours='HAM8'|colours='HAM'|colours=EHB|colours=2|colours=4|colours=8|colours=16|colours=32|colours=64|colours=128) THEN
  63.   DO
  64.     SAY "Falsches FarbArgument"
  65.     SAY "BYE..."
  66.     SAY ""
  67.     EXIT
  68.   END
  69.  
  70. IF ~(dthrnr>-1|dthrnr<7) THEN
  71.   DO
  72.     SAY "Falscher Dither-Wert!"
  73.     SAY "BYE..."
  74.     SAY ""
  75.     EXIT
  76.   END
  77.  
  78. IF ~(screen=6|screen=4|screen=7|screen=5|screen=70|screen=68|screen=35|screen=33) THEN
  79.   DO
  80.     SAY "Falscher Screen-Wert !"
  81.     SAY "BYE..."
  82.     SAY ""
  83.     EXIT
  84.   END
  85.  
  86. LFORMAT "UNIVERSAL"
  87.    IF RC ~=0 THEN
  88.      DO
  89.        SAY "Kann den UNIVERSAL lader nicht wählen."
  90.        SAY "Bye..."
  91.        SAY ""
  92.        EXIT
  93.      END
  94.  
  95. SFORMAT "IFF"
  96.    IF RC ~=0 THEN
  97.      DO
  98.        SAY "Kann IFF saver nicht wählen."
  99.        SAY "Bye..."
  100.        SAY ""
  101.        EXIT
  102.      END
  103.  
  104.   IF RIGHT(Name,5) ~= ".info" | RIGHT(Name,5) ~= ".INFO" THEN
  105.     DO
  106.       SAY "Lade Bild: " Name
  107.       LOAD Source || name
  108.       IF RC~=0 THEN
  109.         DO
  110.       SAY "Kann Bild nicht laden! "
  111.       SAY "Ist "Name" vielleicht gar kein Bild??"
  112.       SAY "BYE..."
  113.       SAY ""
  114.           EXIT
  115.         END
  116.  
  117.     SCREEN_TYPE screen
  118.     IF RC ~= 0 THEN
  119.       DO
  120.     SAY "Kann SCREEN FORMAT nicht einstellen!"
  121.     SAY "Falsches Argument????"
  122.     SAY "BYE..."
  123.     SAY ''
  124.         EXIT
  125.       END
  126.  
  127.     DITHER dthrnr
  128.     IF RC~=0 THEN
  129.       DO
  130.         SAY "Kann Dither Amount nicht einstellen "dthrnr"!"
  131.         SAY "Bye"
  132.         SAY ""
  133.         EXIT
  134.       END
  135.  
  136.    RENDER_TYPE colours
  137.    IF RC~=0 THEN
  138.      DO
  139.        SAY "Kann Farbanzahl "colours" nicht einstellen!"
  140.        SAY "BYE..."
  141.        SAY ""
  142.        EXIT
  143.      END
  144.  
  145.    ABS_SCALE resX resY
  146.    IF RC~=0 THEN
  147.      DO
  148.        SAY "Scalen klappt nicht"
  149.        SAY "BYE..."
  150.        SAY ""
  151.        EXIT
  152.      END
  153.  
  154.    EXECUTE
  155.    IF RC~=0 THEN
  156.      DO
  157.        SAY "Execute failed!"
  158.        SAY "BYE..."
  159.        SAY ""
  160.        EXIT
  161.      END
  162.  
  163.  
  164.    SAY "Speichere Bild: " Name
  165.    SAVE Dest || name IMAGE
  166.    IF RC~=0 THEN
  167.      DO
  168.     SAY "Kann Bild nicht speichern! "
  169.     SAY "BYE..."
  170.     SAY ""
  171.         EXIT
  172.      END
  173.    SAY ""
  174.   END
  175.  
  176. ADPRO_EXIT
  177.